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MEETING NOTICE 


Our Meeting will be held at 1:00 »o.m., Saturday, Sentember 3, 1977, 
at the Waukesha Technical Institute (room 202 - Admininstration Blda.) 


PROGRAM AGENDA 


WCTI will give us a tour of their Comouter facilities which is used 

for Administration and Student purposes. Some of the components in 

their comouter system are Burroughs B-6700 Computer, 1.2 megabyte core, 
500 megabyte disc, 2 card readers, 2 printers, and 28 data communication 
ports, 
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LOOKING FOR AN EXCELLENT BUY ON A ASR-33 TELETYPE complete with Modem? ? 
Contact the writer at once. Only one (1) left. 
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Just received Volume 1, No. 1 of JUDGE, Joint Users of Diaital Grouo 
Equipment NEWSLETTER. 20 pages of info on software and good info on 
Digital Groun Systems. Price is $12.00 ner year. 
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Radio Shack offers the following Computer System for only $600.00; 2-80 
computer board, 4K RAM and ROM, 12" CRT Display, Keyboard, and Cassette 
Tape Recorder. 
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FREE - FREE conies of COMPUTER NOTES from MITS available at the meetina. 
Limited sunnly. ; 
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Newsletter Info 

echt tt TULA! 

Please send your info for the Newsletter to: 


rcs eiokees 


Don Stevens, Editor 
Wisconsin Comouter Societv 
P.O. Box 159 

Sheboygan Falls, Wisc. 53085 


6800 MOVER PROGRAM 


Here is a handy little routine to move programs or 
data around in memory. I have used it to relocate pro- 


1PA0 


grams and as an editor. 


The program is designed to run with a MINISUG II 
monitor. If you have a MIKBUG you will need to change: 


=040 CONTRL to EOCE3 
E0D9 BADDR to E047 
2130 PDATAL to EO7E 
AOOP ADDR to A0O0C 


To relocate this program change the address in lines 
10, 15 and 20. In fact MOVER will move itself. 


NAM MOVER 

OPT S$,0 

ORG $1FA0 
E040 CONTRL EQU $EOLO 
EOD9 BADDR EQU $E0D9 
E130 PDATA1 EQU $E£130 
AOOF ADDR EQU $SAOOP 
AO1P STADDR EQU $A01F 
A021 ENDADR EQU $A021 
CE 1FE3 MOVER LDX #START 
BD E130 ISR PDATA1 
BD EOD9 JSR BADDR 
FE AOOF IDX ADDR 
FF AOIF STX STADDR 
CE iFEA LDX #STOP 
BD £130 JSR PDATA1 
ED EOD9 JSR BADDR 
FE AOOF IDX ADDR 
FF A021 STX ENDADR 
CE iFFi IDX #GOTO 
BD £130 JSR PDATAi 
BD EOD9 JSR BADDR 
FE AO1F NEXT LDX STADDR 
BC A021 CPX ENDADR 
22 At BEQ END 
A6 00 IDA A 0,X 
08 INX 
FF AOLF STX STADDR 
FE AOOF IDX ADDR 
A? 00 STA A 0,X 
0 INX 
FF AOOF STX ADDR 
20 E? BRA NEXT 
7£ E040 END IMP CONTRL 
53 START FCC 6,START 


6800 


POINTER TO START STRING 
PRINT IT 

GET STARTING ADDRESS 
LOAD ADDRESS 

STORE IT 

POINTER TO STOP STRING 
PRINT IT 

GET STOP ADDRESS +1 
LOAD ADDRESS 

STORE IT 


POINTER TO DESTINATION STRING 


PRINT IT 

GET DESINATION ADDRESS 
GET STARTING ADDRESS 
COMPARE TO END ADDRESS 
DONE? GOTO END 

GET CHARACTER 

POINTER 1 

STORE POINTER 

GET DESINATION ADDRESS 
STORE CHARACTER 
POINTER 1 

STORE POINTER 

GET NEXT CHARACTER 
RETURN TO MONITOR 


CONTRL =E=O4O 
BADDR EOD9 
PDATA1 £130 
ADDR | AOOF 
STADDR AO1F 
ENDADR A021 
MOVER 1FAO 


NEXT 1FPC7 
END 1FEO 
START 1FE3 
STOP 1FEA 
GOTO / 1FF1 


STOP 


GOTO 


FCB 
FCC 


FCB 
FCC 


FCB 
END 


“6800 MOVER PROGRAM" by T.D. Farnsworth 
appears courtesy Southern Florida Com- 
puter Group Newsletter, I/0, May 1977. 


GOOD THINGS TO READ 


Electronic Design - Sent. 1, 1977 (1) Time Stretcher Circuit sveeds 
access in Z- micronrocessor. (2) Revised data-interface standards 
nermit data rate and longer 

nermit faster data rate and longer cables. New chins & RS232 adanters 
simnlify their use. 


EDN - August 20, 1977 (1) Micronvrocessor software vrograms bit-rate 
generator (iG-14411 Motorola). (2) Transform micro nrocessor 
develonment svstems into low cost LSI testers. 

Comnuter Desiqn ~- August 1977 Multiplexer System reduces cost of 
Terminal Tnterfacina. 


1977 (1) Cut your vrocessor's comoutation 
(2) Get 32 times the bit rate instead 
(3) Simplify analog/comouter 


Electronic Design - August 16, 
time by storing info in tables. 
of 16 from a programmable baud qenerator. 
interfacing. 


(1) Interrunts add vower, commlexity to micro- 


EDN - August 5, 1977 
computer system design. (2) Lookun tables provide loaarithmic 
calculations. 
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I have been informed that the Memory Tester Program listed in the 
March 1977 issue is quite aood. 
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Texas Instruments has introduced the TI Proqrammer (Hexadecimal and 


Octal calculator/converter for commuter vrogrammers). 


vac Micro Contral 


BY WANK OLSON = HOMEBREW COMPUTER 
CLUS NEWSLETTER ~ MAY 13,1977 


lf one really wents to power a lamp, solenoid, or similar 
small ac load, a full-wave circuit is necessary. A typical cir- 
cuit, using the same Monsanto MCS-1 photo-coupler, is 
shown in Figure 2. The addition of the bridge rectifier allows 
the SCR portion of the photo-coupler to operate across the 
+ and — terminals of the bridge, where the pulsating dc is 
always of the correct polarity. If one is driving a small sole- 
noid, motor, or other ac load which has appreciable induct- 
ance, it is wise to put a thyrite varistor (or one of the newer 
MOV types) across it. This will absorb inductive-kick trans- 
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MONSANTO 


OPEN-COLLECTOR 
Gave 
1/4 7401 @YC. 


Fig. 1 Simple Half-Wave Control of ac with 8CR-Photocoupler 


Priced at$49.95 


ients that could otherwise exceed the SCR bregkdown voltage 
of the MCS-1. Note that the MCS-1 is rated at 250 mA. and 
so these circuits are only good for about 30 W ac loads; but 
that is adequate for many small jobs such as hammer-drivers. 


Note that using the MCS-1 as shown in Figure 2 (or as in 
Figure 1) will mot result in a system that has zero-voltage 
turn-on or zero-current turn-off, as is the case when using 2 
true solid-state relay. This fact can cause a variety of trans- 
ient and load current in-rush problems that may require at- 
tention. However, for simple ac line control, the MCS-1 (and 
its higher numbered MCS-series relatives) offers an inex- 
pensive way to go. 
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MONSANTO 
330 MCS -1 
(EC) 


OPEN-COLLECTOR 
GATE 
1/4 7401 ETC. 


GR1 = MOTOROLA HEP-ROBO3 


Fig. 2 Full-Wave Control of ac with SCA-Photocoupier 


Newett Awl’s Screen Sort 


This little program does what is called a bubble sort. The 
idea behind the bubble sort is that each byte in the sorted area 
is compared to the next higher byte. If the lower byte has a 
higher value than the next higher byte, the two are swapped 
in memory. Then you look at the next two and do the same 
thing until you have passed through the whole sort area. After 
the first pass you know that the last byte in the sort area is 
higher than any other byte, so you don’t need to sort it again. 
Consequently you can set up to pass over the sort area again, 
but you can shorten the sort area by one at the high end. If 
you keep track of whether there were any swaps during the 
pass, you can quit when no swapping takes place. 


| have located this routine in low memory, so you don’t 
need much to play with it. | have used the VDM screen area 
for the sort area, so if your eyes can be synced to the screen 
you can see exactly what is going on. Try putting a whole 
mess of garbage on the screen, then executing the program at 
location OCOO. Your screen may never be the same! 


Those of you who are adventuresome and mischievious might 
try to modify line 0047 to read 0047 SIZE DW, 2047 ARBI- 


TRARY LENGTH and 0048 TOP EQU, 0200H USE TV ()AZ2- 
ZLER AREA. Then if you have Lichen Wang’s Kaliedo- 
scope, assemble this program so that it is above 0900 (/4EX) 
and get the Kaliedoscope program running and then stop 
and run the sort program. 


I've purposely coded the program so that it will sort any 
length field by manipulating the SIZE and TOP. A little prac- 
tice and immagination should do the rest. | sorted the {rain 
program (naturally), but it broke my heart to see the /ittle 
engine so badly and quickly torn apart. A couple of program 
notes: at line 40, the zero flag is been set or reset by the 
ADD B in line 37. As we all know but often forget, the 
DCX H at line 39 has no effect on the the accumulator flags. 


At line 25, | just arbitrarily stuff register B with the last byte 
we looked at. This is an interesting use for the flag. At line 
37, all | need to know is whether or not swapping occured. 
If the test at line 20 tells me that a byte in register A is greater 
than the byte in memory, | know for sure that it is not zero, 
so | can safely use it for a simple flag. 
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40 REM FIXMOX - FOR MITS BASIC AND PROC. TECH. DM 
41 REM YOM ACTION SIMULATION IN WHICH THE VOM “MOON MAN’ 
42 REM BUILDS SOMETHING TO YOUR SPECIFCATIONS 
2a Vea2eer72: REM VOM BASE ADDRESS <7a@a HEX) 
21 REM 
22 REM DEFINE THE FUNCTIONS FOR CALCULATING YDM ADDRESS 
23 REM 
24 REM THEY ARE WISED AS “POKE FNP C@>. CHR’ WHERE FNFC@) 
5 REM RETURNS AN ADDRESS ON THE VOM BASED ON 4 AND x 
26 KEM 
20 DEF FNP CZ @VE+GdH INT CY +8 
BS DEFFNT <2 =VE+R4eTY4T 8 
44 DEFFNDY2)=VE+644 INTC Y+DY 9 +8408 
45 DEFFNG(Z)=VB+64eG4+GX 
5@ FORI=1 7016: FRINT:NEST:REM BLANK THE SCREEN 
55 REM IF YOUR SCROLL ROUTINE USES YDM HARDWARE SCROLL 
Sé REM INSERT “CUT ASK. 8° WHERE XXX IS THE CONTRUL PORT 
60 POKEVB+96@, 32: REM BLANK THE CURSOR “LOWER LEFT? 
6% REM DETERMINE SIZE. NUMBER CIF CHARACTERS IN THE FIC. 
7a FOR Yea TO 1S 
72 READ La REM READ A LINE 
?7R OIF Lo="END" THEN 90:REM HAVE READ THEM ALL 
74 IFWOCLENCL#? THENHOSLENCLS> REM SAVE WIDEST LINE WIDTH 
76 FORI=41TOLENCL$?: REM COUNT NON-BLANK CHARS 
77 IF MIDSCL#, I.42¢>" "THEN NB=NE+1 
78 NEXT I: NEXT 
4 PRINT"PICTURE IS TOO BIGCTOG MANY LINES)": END 
9@ REM DONE READING TABLE - CENTER THE PICTURE 
92 LMS INT<(64—-WO9%2) REM LEFT MARGIN 
94 TMRINTC (46-5922 REM TOP MARGIN 
96 REM DIMENSION TABLES 
97 DIM BONB. 2°: REM Y. ®. CHAR OF BLOCKS STILL TO BUILD 
92 DIM GONE. 2): REM Y.N OF “GORL” PICTURE 
41a REM READ THE DATA TABLE TO GET THE CHARS. SCATTER THEM 
442 RESTORE: CN=8:REM CHAR NUMBER 
114 FOR Lea TO 45 
412 REA L&:REM GET A LINE 
143 1F Le="ENO" THEN 2@@:REM UNE 
did FORI*LENCL#&)TOLSTEP-4 
116 IF MIOSCL#. I. 49=" " THEN 142 
118 CNeCN+1: REM BUMP CHAR NUMBER 
1a GCCN, @2eL+TM: REM Y POSITION IN GOAL TABLE 
122 GCCN, 29"1+LM: REM § POSITION IN GORL TABLE 
24 GOON, Z2ASCCMIDSCLS, I. 192: REM CHAR 
128 REM CALCULATE RANDOM 4. % POSITIONS 
£26 YRINTOLG*RND C199 MeINTC644RNDC dD > 
428 REM IF THE LOCATION IS NOT EMPTY, TRY AGAIN 
120 IF FPEEKCFNPCG@29¢>32 THEN 126 
132 REM THE LOCATION IS EMPTY 
434 REM STORE CHAR. UPDATE THE TABLE 
126 B@ASCOMIDSCL#. I. 499:REM BLOCK THE STORE 
128 BOON, Qe) BOON, 192s: BCCN, 22=6 
44@ POKE FNPC@>. & 
4.42 NEXT I: REM NEST CHAR IN LINE 
45@ NEXT LS REM NEXT LINE UF INPUT 
280 REM 
204 REM PLACE THE BUILOER ON THE SCREEN 
202 REM 
218 RESTORE: REM POINT TO START OF OATA TABLE 
220 REM CALCULATE RANDOM ¥.% FOR BUILDER 


ZERO Yr INT Cl+L2+RNO C19) X= INTC 2+6G4"RND 6 1 >? 
S40 REM MAKE SURE NO BLOCK IS ALREADY THERE 
25@ [FPEERK KC FNP CRD ><> S2THENZSO 
260 REM STORE THE BUILDER 
270 POKE FNF CO). 7 
280 G=NB:REM BUILD FROM BOTTOM WF 
295 REM 
296 REM MAJOR PROGRAM LOOP - GET A GOAL Y.& VALUE 
297 REM THEN MOVE A BLOCK THERE 
293 REM 
30@ IF G=@ THEN F@GE:REM WE ARE DONE 
310 GY=G¢G. @>:GX=G¢G, 19 :GC=G6¢G, 2>: REM GOAL Y. &. CHAR 
344 G-G-1 
245 VY=?:REM INITIALIZE CHAR GF THE BUILDER 
32Q@ REM SEE IF THERE IS A BLOCK THERE 
325 REM CALCULATE CY DX TO MOVE TOWARD BLOCK LOCATION 
S20 DY=SGNCGY<Yo : DX=SGNCGX—S oO 
240 IF FNEC@>=FNGCG> THEN 46@:REM NO BLOCK THERE 
380 IF PEEKCENDC@) <> S2THEN SSO: REM CANT MOVE 
335 REM WE CAN MOVE TOWARD BLOCK LOCATION. DO Sa. LOOP. 
360 POKE FNP COD, Ze: Ye54+D': Ke e+Ds : POKEFNP CQO, * > GOTOSSE 
375 REM REM CAN’ T CONTINUE - 
280 IF FNDC@O<C>FNG @> THEN GOSUB Seae;GOTOSSa 
281 POKE FNP). $2: '¥e¥4+DY : NKR 
362 FOR [=A TONB: TF cCYV=6cT. Go oANDCs@BC I. 15> > THENS 36 
363 NEXT: PRINT"CAN’T FING "Ss a" IN BLOCK TABLE 6B. ":STOF 
385 V=PEEKCFNDC G2 > 
366 V=PEEKCFNPC@>>:GOSUB SHG@@: Bc, Go": B¢l, d=: v=" 
389 REM GET OUT FROM UNDER 
396 DY=1-INTCS#RNDC 19>: DR=L-INTOS#RNDC Lo 
391 IF PEEK CFND¢C@>o<>32 THEN 398 
392 WeY+D4  Mex+De Vee PORE FNP Ceo, ¥: GOTO S36 
399 REM 
$80 REM FIND A BLOCK TO MOVE 
484 FPOKE FNECG>, L6G:POKE FNP CG), ? 
4835 Wer? 
410 FOR T=. TONE 
418% TF Bel. 2>2G0 THEN 436 
$28 NENT 
49 PRINT "CANT FIND  "CHRSCGC)"° BLOCK TO MOVE” >: STOP 
ASO HCY. Samy: Tabet. A>: TeheBcl. wa 
$32 PORE FANTC@), 28460 PORE FANT Ceo, GC 
4535 DYeSONG TYYo - DONS SGNE TNO 
440 LF FADO B>=FNTCR> THEN SGe-REM FOUND BLOCK 
445 [F PEEKCENDE Bo o<>32 THEN GOSUE Saba: GOTO 435 
458 FOKE FNF <)>. 32 
S55 Weel + Oy : Meee Di 
460 PORE FNPCG>. 7:GOTO 435 
4 REM 
SAO REM FOUND BLOCK. CRAM UNDER IT 
S16 POKE FAP). 32: REM BLANK SELF 
S20 YrY+Dy : Ke K+ AK 
S30 V=aGC REM MOVE THE GORL CHAR 
S48 PUKE FNP Co, Vv 
604 REM MOVE THE BLORK INTO FLACE 
610 DY =SONCGY=<Yo  DARSGNG Gs 
626 IF FNEC@o*FNG<G@> THEN FeG@: REM BLOCK IN FLACE 
620 IF PEEK CFPNDC Asoo SS THEN GOSUE Seeae: GoTo see 
64@ FOKE FNP Ce), 22 
CSO Yoev+Dy: Me +Dy  POKE FNP CED, V 


668 
7O8 
716 
715 
726 
736 
746 
758 
7066 
7@10 
7eL4 
areas) 
FRB 
BABE 
BAL 
8041.4 
8O18 
Baza 
8O22 


gaze 


@Oz2 
Buz 
8100 
S140 
e120 
84.20 
S4ac 
8405 
a4ie 
S442 
8420 
G4 25 
840 
Sage 
esau 
asas 
eS. 
es15 
esze 
Sege 
BEL 
S621 
8620 
8640 
8988 
Co1e 
agee 
Boze 
9080 
4.8 
gee 
PGC 
VSN 
SE 
ae re 
auan 
ENSHEY 
BL.G0) 
8448 
94.204 


GOTO 6H 
REM BLOCK IS IN FLACE 
REM MOVE OUT FROM UNDER IT 
DY=-41:Dk2#@8:IF PEERCFNDCB)>=s2 THEN 45 
DY=4<-INTCS4#RNDE 199 -DN=L-INTCS#RNDCLOD - 

IF PEEKCFNDC Gk >2S THEN 728 
Yol+ DY : axe De PORE FNF CG, & 
GOTO 3ae 

REM DONE BUILOING HOUSE - JUST WALK AROUND 

REM UNTIL CONTROL-C IS TYFED 

Vea? REM MAKE THE MOON MAN CHAP: 

GOSUE See 

BATO "ase 

REM ATTEMPT TO GO ARQUND OBSTACLE 

REM LOGIC TS TQ GO FIGHT, THEN LEFT. 

REM OR LEFT. THEN FIGHT 

REM IF EITHER IS BLOCKED. TRY THE OTHER 

IF PND¢LO> . ? THEN S@1@:REM OCASSIONALLY RANCOM 
IF RNDCZo> . 5 THEN 8118:REM RIGHT. THEN LEFT 
REM MOVE LEFT. THEN RIGHT 

GOSUE S5@G:REM LEFT 

IF SU THEN &4@0:REM LEFT Ok. TRY RIGHT, RETURN 
REM TRY RIGHT. THEN LEFT 

GOSUR S4G@:REM TRY RIGHT 

IF SU THEN GOSUE Sea 

GOTO S$9@8:;REM TRY MOVING LEFT. THEN RETURN 

REM RIGHT TURN 

O¥=O4: OKeDsx REM SAVYE OLD 

T=O0%  DxH=-DY : bY=T 

IF PEER CPND¢C M9 2<>SSTHENSS OS: REM SHOW FAILURE 
POKE FAP OG. 2: REM BLANK OLE POST TION 
Wah!+De' MeK+ OM FOKE FNP CRO. Yo REM SHOW NEW FOSITION 
Slime REM SHOW SUCKESS 

RE TURN 

REM TRY LEFT TURN 

Yeap: O82eDs REM SAVE OLD 

TsO De O4' > DY —T 

IF PEEK CFNDC Ro oc>S2 THEN S288: REM FAILURE TO MOVE 
GOTO S426:;REM MOVE. SHOW SUCCESS 

REM RANDOMLY MOVE 2 PORE IN THE SANE DIRECTION 
IF RND¢LO> . 8 THEN RETURN 

IF PEEK CFND CG o<>S2 THEN RETURN 

POKE FNPC@>. 232. REM BLANK GOLD 
YaYeDy : kek+De  POKE FNP CGD. Ws RETURN 

REM FAILURE TO MAKE TLR 

OYealy Dea REM RESTORE OLD VALUES 

Suma REM SHC NO SUCCESS 

Fees TLRehd 

REM RANDOM MOVER. YWeVALUE BEING MOVED 
Doterd- TNT CS RND Lo 

Ox INTC SeRNG Loo 

Led eR CL RIND OD RRND > 

IF PEEK CFNOK Go oc ese THEN RETURN 

REM OR EN PLACE. piv Ta IT 

IF CYeooyo Ce Gh cY+DbYoO2.S5 THEN See 

LF oeM+bK OCG OR CNFDM ODES THEN 9816 

PORE FANE CR. Se REM OO BLANK 

Ql y: Mame PORE FAP CBD Y 

Lhd, 

TF Lie THEN 2a5a@ 


943@ IF RNG €1>> .S THEN RETURN 

$140 REM TURN RIGHT OR LEFT. GO AGAIN 

S145 IF RNOLD, STHENS 2A ) 
9150 REM GO RIGHT 

9455 T=0K De =-DY  OY=T OREM CALCULATE RIGHT TURN 

9166 GOTO 28468 

9266 REM GO LEFT 

9205 T=Dx:Dk=iY : DY=-T: REM CALC LEFT TURN 

9219 GOTO 9e4e 

9999 REM HERE IS THE PICTURE FOR THE MOON MAN TO DRAW. . 

19088 PATA " sie 

14616 DATA " Pare 

10820 DATR "  ! 3 
18036 DATA" ! 

1LQ848 CATR" ! 

10050 DATA " + es ad 
LOG6O OATA " ! 

1@@65 DATA" ! 

18878 DATA " ! ! 
18@s8a DATA " ! ! ! She 
}oogO*OATA " | | 

1Q@100 DATA " bent wee tenet 
10116 DATA “END" 
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ps Say KIT OFFERED BY RCA. Priced at $275.00 in kit form, the 

“is a ‘ete computer on a vrinted circuit card, offering a nowerful, 
uncluttered, complete operating system in only 4K bits of ROM. VIP'S 
outout directly interfaces with a monochrome CRT display or, when used 
with an FCC-avproved modulator, a TV receiver. Proarams can be generated 
and then stored in an audio cassette tape recorder for easy retrieval 
and use. The VIP features a single 8-1/2 x 11" PC card with the CDP1802 
microprocessor, 2,048 byte RAM using 4K-bit static RAMs, sinale-chin 
gravhic video disrlay interface, built-in hexadecimal keyboard. 


\ 
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Itaca Audio, Box 91, Ithaca, N.Y. 14850, offers S100 2-80 Board for $35.00 
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Questionaires returned to date: 


8080 Systems: 2-80 Systems KIM-1 6502 
Don Senzig Steve Ujvarosy John Geicer 
Milt Krauthoff Robert Senzig 
Alfred Bode Tom Carlton 

Peter Davis 

Tom Artzberger TI-990 System 

Jeff Smith 

Tod Temnolin William Mack 

Dave Saar 

Darrell Wood 6800 Systems 

Tom Doyle | 
Larry Leranth Julian Jetzer 

Joseph Leair Stenvhen Heinecke 


Darryl Uchitil 


